home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / MinimumMP.p / MinimumMP.p
Encoding:
Text File  |  1994-03-02  |  263 b   |  14 lines  |  [TEXT/MWPS]
  1. {Minimum MP Demonstration Program}
  2. {©FaceWare 1991-94.  All Rights Reserved.}
  3.  
  4. program MinimumMP;
  5.  
  6.     uses
  7.         FaceStorMP, FaceProcMP;
  8. begin
  9.     fRec.uName := 'Minimum.Rsrc';
  10.     FaceIt(nil, DoInit, 0, 0, 0, 0);
  11.     repeat
  12.         FaceIt(nil, DoLoop, 0, 0, 0, 0);
  13.     until false;
  14. end.